home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / SecalDemo / Inc / libcalls / utility.inc < prev    next >
Encoding:
Text File  |  1997-06-11  |  6.0 KB  |  266 lines
  1. pattern FindTagItem(_tagVal,_tagList) is
  2.     push a6;
  3.     safe d0.l:=_tagVal; a0:=_tagList;;
  4.     a6:=UtilityBase; jsr [a6-30];
  5.     pop a6;
  6. endp;                                                            # FINDTAGITEM
  7.  
  8. pattern GetTagData(_tagValue,_defaultVal,_tagList) is
  9.     push a6;
  10.     safe d0.l:=_tagValue; d1.l:=_defaultVal; a0:=_tagList;;
  11.     a6:=UtilityBase; jsr [a6-36];
  12.     pop a6;
  13. endp;                                                            # GETTAGDATA
  14.  
  15. pattern PackBoolTags(_initialFlags,_tagList,_boolMap) is
  16.     push a6;
  17.     safe d0.l:=_initialFlags; a0:=_tagList; a1:=_boolMap;;
  18.     a6:=UtilityBase; jsr [a6-42];
  19.     pop a6;
  20. endp;                                                            # PACKBOOLTAGS
  21.  
  22. pattern NextTagItem(_tagListPtr) is
  23.     push a6;
  24.     a0:=_tagListPtr;
  25.     a6:=UtilityBase; jsr [a6-48];
  26.     pop a6;
  27. endp;                                                            # NEXTTAGITEM
  28.  
  29. pattern FilterTagChanges(_changeList,_originalList,_apply) is
  30.     push a6;
  31.     safe a0:=_changeList; a1:=_originalList; d0.l:=_apply;;
  32.     a6:=UtilityBase; jsr [a6-54];
  33.     pop a6;
  34. endp;                                                            # FILTERTAGCHANGES
  35.  
  36. pattern MapTags(_tagList,_mapList,_mapType) is
  37.     push a6;
  38.     safe a0:=_tagList; a1:=_mapList; d0.l:=_mapType;;
  39.     a6:=UtilityBase; jsr [a6-60];
  40.     pop a6;
  41. endp;                                                            # MAPTAGS
  42.  
  43. pattern AllocateTagItems(_numTags) is
  44.     push a6;
  45.     d0.l:=_numTags;
  46.     a6:=UtilityBase; jsr [a6-66];
  47.     pop a6;
  48. endp;                                                            # ALLOCATETAGITEMS
  49.  
  50. pattern CloneTagItems(_tagList) is
  51.     push a6;
  52.     a0:=_tagList;
  53.     a6:=UtilityBase; jsr [a6-72];
  54.     pop a6;
  55. endp;                                                            # CLONETAGITEMS
  56.  
  57. pattern FreeTagItems(_tagList) is
  58.     push a6;
  59.     a0:=_tagList;
  60.     a6:=UtilityBase; jsr [a6-78];
  61.     pop a6;
  62. endp;                                                            # FREETAGITEMS
  63.  
  64. pattern RefreshTagItemClones(_clone,_original) is
  65.     push a6;
  66.     safe a0:=_clone; a1:=_original;;
  67.     a6:=UtilityBase; jsr [a6-84];
  68.     pop a6;
  69. endp;                                                            # REFRESHTAGITEMCLONES
  70.  
  71. pattern TagInArray(_tagValue,_tagArray) is
  72.     push a6;
  73.     safe d0.l:=_tagValue; a0:=_tagArray;;
  74.     a6:=UtilityBase; jsr [a6-90];
  75.     pop a6;
  76. endp;                                                            # TAGINARRAY
  77.  
  78. pattern FilterTagItems(_tagList,_filterArray,_logic) is
  79.     push a6;
  80.     safe a0:=_tagList; a1:=_filterArray; d0.l:=_logic;;
  81.     a6:=UtilityBase; jsr [a6-96];
  82.     pop a6;
  83. endp;                                                            # FILTERTAGITEMS
  84.  
  85. pattern CallHookPkt(_hook,_object,_paramPacket) is
  86.     push a2\a6;
  87.     safe a0:=_hook; a2:=_object; a1:=_paramPacket;;
  88.     a6:=UtilityBase; jsr [a6-102];
  89.     pop a2\a6;
  90. endp;                                                            # CALLHOOKPKT
  91.  
  92. pattern Amiga2Date(_seconds,_result) is
  93.     push a6;
  94.     safe d0.l:=_seconds; a0:=_result;;
  95.     a6:=UtilityBase; jsr [a6-120];
  96.     pop a6;
  97. endp;                                                            # AMIGA2DATE
  98.  
  99. pattern Date2Amiga(_date) is
  100.     push a6;
  101.     a0:=_date;
  102.     a6:=UtilityBase; jsr [a6-126];
  103.     pop a6;
  104. endp;                                                            # DATE2AMIGA
  105.  
  106. pattern CheckDate(_date) is
  107.     push a6;
  108.     a0:=_date;
  109.     a6:=UtilityBase; jsr [a6-132];
  110.     pop a6;
  111. endp;                                                            # CHECKDATE
  112.  
  113. pattern SMult32(_arg1,_arg2) is
  114.     push a6;
  115.     safe d0.l:=_arg1; d1.l:=_arg2;;
  116.     a6:=UtilityBase; jsr [a6-138];
  117.     pop a6;
  118. endp;                                                            # SMULT32
  119.  
  120. pattern UMult32(_arg1,_arg2) is
  121.     push a6;
  122.     safe d0.l:=_arg1; d1.l:=_arg2;;
  123.     a6:=UtilityBase; jsr [a6-144];
  124.     pop a6;
  125. endp;                                                            # UMULT32
  126.  
  127. pattern SDivMod32(_dividend,_divisor) is
  128.     push a6;
  129.     safe d0.l:=_dividend; d1.l:=_divisor;;
  130.     a6:=UtilityBase; jsr [a6-150];
  131.     pop a6;
  132. endp;                                                            # SDIVMOD32
  133.  
  134. pattern UDivMod32(_dividend,_divisor) is
  135.     push a6;
  136.     safe d0.l:=_dividend; d1.l:=_divisor;;
  137.     a6:=UtilityBase; jsr [a6-156];
  138.     pop a6;
  139. endp;                                                            # UDIVMOD32
  140.  
  141. pattern Stricmp(_string1,_string2) is
  142.     push a6;
  143.     safe a0:=_string1; a1:=_string2;;
  144.     a6:=UtilityBase; jsr [a6-162];
  145.     pop a6;
  146. endp;                                                            # STRICMP
  147.  
  148. pattern Strnicmp(_string1,_string2,_length) is
  149.     push a6;
  150.     safe a0:=_string1; a1:=_string2; d0.l:=_length;;
  151.     a6:=UtilityBase; jsr [a6-168];
  152.     pop a6;
  153. endp;                                                            # STRNICMP
  154.  
  155. pattern ToUpper(_character) is
  156.     push a6;
  157.     d0.l:=_character;
  158.     a6:=UtilityBase; jsr [a6-174];
  159.     pop a6;
  160. endp;                                                            # TOUPPER
  161.  
  162. pattern ToLower(_character) is
  163.     push a6;
  164.     d0.l:=_character;
  165.     a6:=UtilityBase; jsr [a6-180];
  166.     pop a6;
  167. endp;                                                            # TOLOWER
  168.  
  169. pattern ApplyTagChanges(_list,_changeList) is
  170.     push a6;
  171.     safe a0:=_list; a1:=_changeList;;
  172.     a6:=UtilityBase; jsr [a6-186];
  173.     pop a6;
  174. endp;                                                            # APPLYTAGCHANGES
  175.  
  176. pattern SMult64(_arg1,_arg2) is
  177.     push a6;
  178.     safe d0.l:=_arg1; d1.l:=_arg2;;
  179.     a6:=UtilityBase; jsr [a6-198];
  180.     pop a6;
  181. endp;                                                            # SMULT64
  182.  
  183. pattern UMult64(_arg1,_arg2) is
  184.     push a6;
  185.     safe d0.l:=_arg1; d1.l:=_arg2;;
  186.     a6:=UtilityBase; jsr [a6-204];
  187.     pop a6;
  188. endp;                                                            # UMULT64
  189.  
  190. pattern PackStructureTags(_pack,_packTable,_tagList) is
  191.     push a2\a6;
  192.     safe a0:=_pack; a1:=_packTable; a2:=_tagList;;
  193.     a6:=UtilityBase; jsr [a6-210];
  194.     pop a2\a6;
  195. endp;                                                            # PACKSTRUCTURETAGS
  196.  
  197. pattern UnpackStructureTags(_pack,_packTable,_tagList) is
  198.     push a2\a6;
  199.     safe a0:=_pack; a1:=_packTable; a2:=_tagList;;
  200.     a6:=UtilityBase; jsr [a6-216];
  201.     pop a2\a6;
  202. endp;                                                            # UNPACKSTRUCTURETAGS
  203.  
  204. pattern AddNamedObject(_nameSpace,_object) is
  205.     push a6;
  206.     safe a0:=_nameSpace; a1:=_object;;
  207.     a6:=UtilityBase; jsr [a6-222];
  208.     pop a6;
  209. endp;                                                            # ADDNAMEDOBJECT
  210.  
  211. pattern AllocNamedObjectA(_name,_tagList) is
  212.     push a6;
  213.     safe a0:=_name; a1:=_tagList;;
  214.     a6:=UtilityBase; jsr [a6-228];
  215.     pop a6;
  216. endp;                                                            # ALLOCNAMEDOBJECTA
  217.  
  218. pattern AttemptRemNamedObject(_object) is
  219.     push a6;
  220.     a0:=_object;
  221.     a6:=UtilityBase; jsr [a6-234];
  222.     pop a6;
  223. endp;                                                            # ATTEMPTREMNAMEDOBJECT
  224.  
  225. pattern FindNamedObject(_nameSpace,_name,_lastObject) is
  226.     push a2\a6;
  227.     safe a0:=_nameSpace; a1:=_name; a2:=_lastObject;;
  228.     a6:=UtilityBase; jsr [a6-240];
  229.     pop a2\a6;
  230. endp;                                                            # FINDNAMEDOBJECT
  231.  
  232. pattern FreeNamedObject(_object) is
  233.     push a6;
  234.     a0:=_object;
  235.     a6:=UtilityBase; jsr [a6-246];
  236.     pop a6;
  237. endp;                                                            # FREENAMEDOBJECT
  238.  
  239. pattern NamedObjectName(_object) is
  240.     push a6;
  241.     a0:=_object;
  242.     a6:=UtilityBase; jsr [a6-252];
  243.     pop a6;
  244. endp;                                                            # NAMEDOBJECTNAME
  245.  
  246. pattern ReleaseNamedObject(_object) is
  247.     push a6;
  248.     a0:=_object;
  249.     a6:=UtilityBase; jsr [a6-258];
  250.     pop a6;
  251. endp;                                                            # RELEASENAMEDOBJECT
  252.  
  253. pattern RemNamedObject(_object,_message) is
  254.     push a6;
  255.     safe a0:=_object; a1:=_message;;
  256.     a6:=UtilityBase; jsr [a6-264];
  257.     pop a6;
  258. endp;                                                            # REMNAMEDOBJECT
  259.  
  260. pattern GetUniqueID is
  261.     push a6;
  262.     a6:=UtilityBase; jsr [a6-270];
  263.     pop a6;
  264. endp;                                                            # GETUNIQUEID
  265.  
  266.